home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byteibm.arc / HOGAN.ARC / LISTING1.TXT next >
Encoding:
Text File  |  1985-07-12  |  467 b   |  29 lines
  1.  
  2. PUSH_REGS   MACRO  REG1, REG2, REG3, REG4
  3.  
  4.         NUM_REGS = 1
  5.  
  6.         PUSH REG1
  7.  
  8.         IFNB <REG2>
  9.         NUM_REGS = NUM_REGS + 1
  10.         PUSH REG2
  11.         ENDIF
  12.  
  13.         IFNB <REG3>
  14.         NUM_REGS = NUM_REGS + 1
  15.         PUSH REG3
  16.         ENDIF
  17.  
  18.         IFNB <REG4>
  19.         NUM_REGS = NUM_REGS + 1
  20.         PUSH REG4
  21.         ENDIF
  22.  
  23.         PUSH BP
  24.  
  25.         MOV  BP, SP
  26.  
  27.         ARG_BASE EQU BP + 4 + (2 * NUM_REGS)
  28.  
  29.         ENDM